source(here::here("code/load.R"))

here("data/meta_analyses_raw/BalTybWuAntVan2018/image_ocr.csv") |>
  read_csv() |>
  mutate(meta_id = "BalTybWuAntVan2018",
         subfield = "AP",
         question = "Are liberals more concerned for others?",
         study_year = str_extract(study_id,  "(?<=\\().+?(?=\\))"),
         std.error = (conf.high95 - conf.low95) / 3.92,
         overall_effect = "yes") |>
  select(meta_id,
         subfield,
         question,
         study_id,
         study_year,
         estimate = statistic_r,
         std.error,
         overall_effect) |>
  write_csv(here("data/meta_analyses_clean/BalTybWuAntVan2018.csv"))
